home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0385.arc / MODULA2.LTG < prev    next >
Text File  |  1986-02-27  |  384b  |  9 lines
  1.  
  2. Modula2Listing 2.
  3.  
  4. PROCEDURE access(a: Matrix; row, col; INTEGER): REAL;
  5. (* Returns the real number in location row,col for matrix a *)
  6.  
  7. PROCEDURE assign(a: Matrix; row, col : INTEGER; x : REAL);
  8. (* Assigns the real number x to location row,col in matrix a *)
  9.